U 


UJ 


035 


036 


00000 
00001 
00002 
00003 
00004 
00005 
00006 
00007 
00010 
00011 


“HOOTS 


00013 
00014 


03 0010 
000000 
00 0100 
000000 
11 0000 
Q00041 
06 0000 
O00000 
06 0000 
000000 
13 0100 
000022 
06 0000 


00015 000000 


00016 
00017 
00020 
00021 
00022 
00023 
00024 


le 0000 
000042 
00 0100 
000037 
06 0000 
000000 
06 0001 


00025 000000 


00026 
00027 


13 0000 
11 0000 


00030 000000 


00031 
00032 
00033 


00034 


00035 
00036 
00037 
00040 
00041 
00042 
00043 
00044 


00045 
00046 
00047 
00050 
00051 
00052 


00053 
00054 
00055 
00056 
00057 
00060 
00061 
00062 
00063 


06 0100 
000000 
L7 i016 
000024 
11 Q000 
000042 
00 0100 
000000 
000000 
000000 
00 0101 
000001 


00 0100 
000000 
000000 
Q000000 
00. 0100 
000000 


03 0010 
000000 
06 0000 
000000 
11 0000 
000063 
00 0100 
000000 
000000 


06 


03 


03 


03 


03 


06 


ii 


06 


03 


PRWA? 


e we 


PRYS 


LOC 


Toc 


RMI 
JU 


RM 


WARD 
WRD 
JUD 


EOF 
JU 
WRD 


WRD 
JU 


nmMI 


WRD 


0 
ASSETTE 

TRP »0 

FIND 3FIND BEGINNING OF TEXT CF 
AXsPHWB+2 $STORE PARAMETER © 

LCONTs AX 3;I1F WHOLE BUFFER IS TO BE 
NRL» AY SWRITTENs SET SECOND 
AOsETZsPRWA-2 $3PARAMETER TO END OF 
NEAT s AY sTEXT IN BUFFER 
AYsPRWB+3 

PRWB 

FLOC »AX sOTHERWISE CALCULATE 
FLOC sAY sTEXT END 

A0sAX : 

AX»FLOC 3 FLOC=FLOC+CCNT 

LCNTsP1 

MSR»GEZ»sPRWA 

AX»sPRWB+3 

%GWB 

O $TEXT START-1 

0 3TEXT END 

PRW+1 
TO CASSETTE 


2G WB 


0 
O 
BAK 


sREAD FROM CASSETTE 


TRP»0O 
NEAT» Ax 
AXxs e«t4 
%ZGRB 


0 >sBUFFER START-1 


037 00064 000113 


038 
039 
O40 
O41 
042 


043 
O44 


045 


O46 


O47 
O46 


O49 


050 


O51 


052 


053 
054 


055 


056 


US? 


056 
59 


060 


061 


00065 
00066 


00067 


000203 
000135 


06 0000 


00070 0909000 


00071 
00072 
00073 
00074 


06 0001 
000000 
13 0000 
11 0000 


00075 000000 


00076 


00077 


00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
09110 
00111 
OOl1lia 
00113 
00114 
OG1I5 
00116 
OO117 
00120 
OOlzi 
90122 
00123 
00124 
00125 
00126 
uO1Z7 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00140 
00141 
00142 
00143 
00144 
00145 
00146 
00147 
00150 
00151 


06 0100 
000009 
06 0000 
000003 
l2 O110 
13 1000 
000071 
06 0100 
000000 
17 1001 
0900054 
00 0100 
000055 
00 0100 
000000 
000115 
0900314 
000305 
000316 
000307 
000324 
000310 
000249 
000305 
000322 
000322 
000317 
000322 
000215 
00 0101 
000054 


00 0100 03 CSERR: 


000000 
000137 
000303 
000310 
000305 
000303 
000313 
000323 
000325 
000315 
000215 
00 0100 


00152 000000 


00153 


900353 


00154 000301 


00155 


000303 


Li 


12 PRYAS 


Ld 
06 


06 


lz 


le 
03 


06 


03 


O03 


03 LERR: 


03 


03 


WRD LERR >LENGTH ERROR EXIT 
WRD PRYEF sEOF EAIT 
WRD CSERRH sCHECKSUM ERROR EXIT 
SUPDATE NEAT AND NRL 
Mit NEAT s AX 
MitD NEAT »sAY 
Kr AO»sAA 
nM AAsNEAT xs NEAT=NEATF+CCNT 
MS NRL» Pl >NRL=NARL+1 
Mr ZGRB1+3sAY sLAST USED BUFFER LOCATIO 
RSC AYsPl 
JC AODsLTZsPRYA sNOT AT END OF TEXT 
MS LCONT»sP1 >sDECREMENT #4 OF BLOCKS IF 
JCD MSR»esLTZsPRY+1 
JU PARY+2 
JU MOUT 
WRD ° 
WAD 3145330533165307332453105,240 
WARD 3055,32253225317533223215 
JUD PRY+1 
JU MOUT 
WrD e : 
WRD 303531053052 30353135323332553155215 
JU MOUT sPRINT ACCEPT QUERY 
WRD . 
WRD 30153035303530533205 3245277524020 


U 063 
064 
J 065 
J 066 
067 
06& 
069 
J O70 
Ts 
VW OTS 


073 
O74 


O75 
O76 
O77 
078 
JU O79 
080 
081 
U 062 
083 
0&4 
U 085 
086 
0&7 


088 


00156 


OO1S7 
00160 
00161 
00162 
00163 
O0164 
00165 
00166 
00167 
00170 
Waa tL 
00172 
00173 
00174 
00175 
00176 
Oi ie 
00200 
00201 
00202 
00203 
00204 
00205 


00206 


00207 
00210 
00211 
00212 


000303 
000305 
000320 
000324 
000277 
000240 
000000 
00 0100 
000000 
06 0010 
000215 
00 0100 
000000 
06 0000 
000000 
06 0010 
177447 
13 0100 
000067 
00 0101 
Q000054 
06 0000 
000000 
1i 21011 

000054 
00 0100 
000000 
000211 
000252 


00213 000305 


00214 
OU215 
00216 
OO2R1T 
00220 
00221 


00222 
00223 
00224 
00225 
00226 
00227 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00240 


000317 
000306 
000252 
000215 
00 0101 
000054 


O03 0000 
OO0054 
00 0100 
QO00000 
000113 
000236 
06 0100 
000000 
sy 1001 
000054 
00 0100 
000224 
06 0000 
000000 
At 1044 


00241 000054 


00242 
00243 


00 0100 
000207 


03 
ii 
03 
it 
i2 
03 
03 
1} 
03 


03 


03 


06 


03 


06 
03 
03 
1i 
03 


03 


PRYEFs 


JUD 


CHIN 
2152AX 
CHOUT 
CHAR, AX 


-331,AY 


AODsETZsPRYA-2 


PRY+1 

LONTsAX 3 IF 
AXsGEZsPRY+1 
MOUT 


292 330593175330622525215 


PRY+1 


IF ACCEPTED GO TO 


3s RETURN: 


UPD 


sOTHERWISE “PRINT MESSAGE 


FORKIP BLOCKS ON CASSETTE 


S 
PRZ 8s 


PrZAs 


RM 


JU 


END 


TRP»sPRY+1 


2G5B 


LER 
PRZA 
LCONTs rl 


MSrseLTZsPRY+1 


Prate 


LONTsAX 


sIF SKIPPING FILE 


AxXsGEGsaPRY+F+]1 


EOF 


sOTHERWISESs 


s>RETURN 


PRINT MESSAGE 


